home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / comm / pirch32.zip / PIGLATIN.PIL < prev    next >
Text File  |  1996-07-22  |  462b  |  19 lines
  1. { usage: /runscript [piglatin] <text message> }
  2. { probably will want to make an alias like
  3. - piglatin:/runscript [piglatin] *1 
  4. }
  5. $target := '';
  6. $source := *1 ;
  7. while strlen($source) > 0 do
  8. begin
  9.     $word := strtoken($source);
  10.     $c := strcopy($word,1,1);
  11.     if strpos(strupper($c),'AEIOU') = 0 then
  12.     begin
  13.         strdel($word,1,1);
  14.         $word := $word+$c+'a';
  15.     end;
  16.     $target := $target + $word+' ';
  17. end;
  18. command('/msg ',$audience,' pirch latin: ',$target);
  19.